From: Kenichi Handa <handa@m17n.org>
Date: Fri, 3 Apr 2009 06:23:49 +0000 (+0000)
Subject: (print_object): Make each lowest sub_char_table start a new line.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~986
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=192db2bb27a53ef545ddb9300af0c6b70b4ecf0a;p=emacs.git

(print_object): Make each lowest sub_char_table start a new line.
---

diff --git a/src/print.c b/src/print.c
index 738f4f678ed..e78f593c7b5 100644
--- a/src/print.c
+++ b/src/print.c
@@ -2116,6 +2116,13 @@ print_object (obj, printcharfun, escapeflag)
 	      /* We print a char-table as if it were a vector,
 		 lumping the parent and default slots in with the
 		 character slots.  But we add #^ as a prefix.  */
+
+	      /* Make each lowest sub_char_table start a new line.
+		 Otherwise we'll make a line extremely long, which
+		 results in slow redisplay.  */
+	      if (SUB_CHAR_TABLE_P (obj)
+		  && XINT (XSUB_CHAR_TABLE (obj)->depth) == 3)
+		PRINTCHAR ('\n');
 	      PRINTCHAR ('#');
 	      PRINTCHAR ('^');
 	      if (SUB_CHAR_TABLE_P (obj))